home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #2 / Amiga Plus CD - 1999 - No. 2.iso / System-Boost / Workbench / Archive / ViewDiz / NewModules / zip < prev   
AmigaDOS Script File  |  1998-11-08  |  1KB  |  68 lines
  1. .key file/a,cmd,desc
  2. .def desc="t:file_id.diz"
  3. .bra {
  4. .ket }
  5.  
  6. if {cmd} eq "read"
  7.  failat 21
  8.  
  9.  UnZIP -o "{file}" FILE_ID.DIZ -d t: >nil:
  10.  
  11.  if exists "{desc}"
  12.   Protect >NIL: "{desc}" RWED
  13.   skip end
  14.  else
  15.   set aminetfile "`list "{file}" LFORMAT %f%m`.readme"
  16.   if not exists "$aminetfile"
  17.    set aminetfile "`list "{file}" LFORMAT %m`.readme"
  18.    UnZIP -o "{file}" "#?$aminetfile" -d t: >nil:
  19.    set aminetfile "t:"$aminetfile
  20.   endif
  21.  
  22.   if exists "$aminetfile"
  23.    execute env:viewdiz/modules/readme "$aminetfile" CMD=read DESC="{desc}"
  24.    unset aminetfile
  25.   endif
  26.  endif
  27.  skip end
  28. endif
  29.  
  30. if {cmd} eq "write"
  31.  failat 21
  32.  set note `list "{file}" lformat "%c"`
  33.  
  34.  ZIP -k -9 "{file}" "{desc}" >nil:
  35.  
  36.  get >nil: note
  37.  if not warn
  38.   filenote >nil: "{file}" "$note"
  39.   unset note
  40.  endif
  41.  
  42. endif
  43.  
  44. if {cmd} eq "delete"
  45.  failat 21
  46.  set note `list "{file}" lformat "%c"`
  47.  
  48.  ZIP d "{file}" FILE_ID.DIZ >nil:
  49.  
  50.  get >nil: note
  51.  if not warn
  52.   filenote >nil: "{file}" "$note"
  53.   unset note
  54.  endif
  55.  
  56. endif
  57.  
  58. if {cmd} eq "execute"
  59.  execute env:viewdiz/modules/.getdrawer
  60.  UnZIP -o "{file}" -d "$dest" >con:
  61. endif
  62.  
  63. if {cmd} eq "info"
  64.  setenv viewdiz/.minf "*"{file}*"" rwxd 6 _UnZip (#?.zip) Zip-packed
  65. endif
  66. lab end
  67. ;$VER: ViewDIZ-ZIP.module 1.3 (23.10.98) Mikael Lund & Stefano Pucino
  68.